op_assign_CH_VS Subroutine

private elemental subroutine op_assign_CH_VS(var, exp)

Assign a varying string to a character string

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(out) :: var
type(varying_string), intent(in) :: exp

Source Code

  elemental subroutine op_assign_CH_VS (var, exp)

    character(LEN=*), intent(out)    :: var
    type(varying_string), intent(in) :: exp
    
    var = char(exp)

! Finish

    return

  end subroutine op_assign_CH_VS